DATABASE MATERIALI

c3e12eb1-4689-40ed-b0f3-fc8065aa6fc0 48 4 5 decimal

&[DATE] &[TIME] - &[FILENAME]

T.process 1000 °C * : T.atm 25 °C * : 21 sys

ID.steel 2000 mm * : thk.shell 8 mm * : L 1 mm * : 31 sys

h.convection 30 W m 2^K * / * :

=1 to run the WHILE loop SWITCH 1 :

MAXIMUM NUMBER OF "WHILE" ITERATIONS... countlimit 30 :

DATABASE MATERIALI

MATERIALI ATLAS 60 MU 0 °C * 1000 °C * 21 mat 1.9 W m K * / * 1.73 W m K * / * 21 mat GD 23C 400 °C * 1000 °C * 21 mat 0.15 W m K * / * 0.24 W m K * / * 21 mat GD 18C 200 °C * 800 °C * 21 mat 0.10 kcal m hr * K * / * 0.18 kcal m hr * K * / * 21 mat RockWool 200 °C * 1000 °C * 21 mat 0.051 kcal m hr * K * / * 0.29 kcal m hr * K * / * 21 mat 43 mat :

FUNCTIONS

NOT USED V.1 V.2 delta_quad V V.1 V.2 - : i 1 V rows range V.delta i el V i el 2^: for V.delta i el i 1 V rows sum 31 line :

Determina conducibilità termica a partire da conducibilità note, per un materiale T Materiale λ.T Materiale 12 el K / Materiale 13 el W m K * / / T K / linterp W m K * / * :

T.1 T.2 Materiale λ.T_avg T.1 Materiale λ.T T.2 Materiale λ.T + 2 / :

r.out r.in λ R r.out r.in / ln 2 π * (L λ * (* / :

L 0.001 m *

INPUT MATERIALI

"ATLAS 60 MU"
"GD 23C"
"GD 18C"
"RockWool"

Selected_Mat

MAT 1 el Selected_Mat :

thk 1 el 115 mm * :

"ATLAS 60 MU"
"GD 23C"
"GD 18C"
"RockWool"

Selected_Mat

MAT 2 el Selected_Mat :

thk 2 el 115 mm * :

"ATLAS 60 MU"
"GD 23C"
"GD 18C"
"RockWool"

Selected_Mat

MAT 3 el Selected_Mat :

thk 3 el 115 mm * :

"ATLAS 60 MU"
"GD 23C"
"GD 18C"
"RockWool"

Selected_Mat

MAT 4 el Selected_Mat :

thk 4 el 0 mm * :

MAT 5 el STEEL 0 °C * 100 °C * 21 mat 50 W m K * / * 50 W m K * / * 21 mat 13 mat :

<<<SISTEMARE!?!?

thk 5 el thk.shell :

"ATLAS 60 MU"
"GD 23C"
"GD 18C"
"RockWool"

Selected_Mat

MAT 6 el Selected_Mat :

thk 6 el 100 mm * :

"ATLAS 60 MU"
"GD 23C"
"GD 18C"
"RockWool"

Selected_Mat

MAT 7 el Selected_Mat :

thk 7 el 0 mm * :

num_righe MAT rows : 7

Cont 0 :

Cont1 0 :

Cont2 0 :

i 1 num_righe range Cont1 Cont1 1 + : thk i el 0 mm * ≡ (i 4 ≤ (& Cont2 Cont2 1 + : thk i el 0 mm * ≡ (i 5 ≥ (& continue cases 11 line for

i 1 num_righe range continue thk i el 0 mm * ≡ Cont Cont 1 + : MATR Cont el MAT i el : thkR Cont el thk i el : 31 line cases 11 line for

<<<--- FORSE NON SERVE??

COSTRUZIONE VETTORI DEI RAGGI INTERNI ed ESTERNI

R.int 1 el ID.steel 2 / thk j el j 14 Cont1 - sum - : mm 65511 mat

Cont 5

Cont1 1

i 2 Cont range R.int i el R.int i 1 - el thkR i 1 - el + : for

i 1 Cont range R.ext i el R.int i el thkR i el + : for

Cont2 1

R.int 0.655 m * 0.77 m * 0.885 m * m 1.008 m * 51 mat

R.ext 0.77 m * 0.885 m * m 1.008 m * 1.108 m * 51 mat

COSTRUZIONE VETTORE DI PRIMO TENTATIVO:

i 1 Cont range T.int_trial i el T.process i 1 - (T.process T.atm - Cont / (* - : for

T.int_trial °C 100080561041522051 mat

T.int T.int_trial : 1273.15 K * 1078.15 K * 883.15 K * 688.15 K * 493.15 K * 51 mat

T.ext_trial T.atm :

T.ext T.ext_trial : 298.15 K *

count 0 :

countlimit 30

Calculate the system

R.conv_PRO 1 h.convection 2 π * R.int 1 el 1012 -^m * + (* L * (* / : 8.0995 K S * A 2^/ *

R.ext Cont el 1.108 m *

R.conv_atm 1 h.convection 2 π * R.ext Cont el * L * (* / : 4.7881 K S * A 2^/ *

h.convection 30 kg K s 3^* / *

count countlimit < (SWITCH 1 ≡ (& Calcola conducibilità termiche in ogni materiale in base al vettore temperature i 1 Cont 1 - (range λ i el T.int i el MATR i el λ.T T.int i 1 + el MATR i el λ.T + 2 / : for λ Cont el T.int Cont el T.ext MATR Cont el λ.T_avg : 21 line Calcola resistenza termica totale i 1 Cont range R i el R.ext i el R.int i el λ i el R : for R.tot R j el j 1 Cont sum R.conv_PRO + R.conv_atm + : 21 line Q T.process T.atm - (R.tot / : vuoto count count 1 + : AGGIORNA VETTORE TEMPERATURE T.ext_new T.atm Q R.conv_atm * + : T.int_new Cont el T.ext_new Q R Cont el * + : i 1 Cont 1 - (range T.int_new Cont i - el T.int_new Cont i - 1 + el Q R Cont i - el * + : for vuoto T.int T.int_new : T.ext T.ext_new : 141 line while

count 30

COSTRUIRE VETTORE NOMI

i 1 Cont range TAG_VECTOR i el MATR i el 11 el : for

TAG_VECTOR ATLAS 60 MU GD 23C GD 18C STEEL RockWool 51 mat

Q 2.2465 W *

λ λ kg m * s 3^K * / / :

T.ext °C 35.7565

R.int 0.655 m * 0.77 m * 0.885 m * m 1.008 m * 51 mat

thkR mm 115115115810051 mat

λ 1.7359 0.2149 0.1774 50 0.0778 51 mat

T.int_trial °C 100080561041522051 mat

T.int °C 981.8043 948.4877 716.8985 470.6143 470.5573 51 mat

kg m * s 3^K * /

GRAPH R.int mm / T.int 0 °C * - augment : 655 981.8043 K * 770 948.4877 K * 885 716.8985 K * 1000 470.6143 K * 1008 470.5573 K * 52 mat

1.7359 0.2149 0.1774 50 0.0778 51 mat

data char size clr plot k 1 data rows range r3 k el char : r4 k el size : r5 k el clr : 31 line for data r3 r4 r5 augment 21 line :

data GRAPH o 4 black plot :

data GRAPH 2 1 sys GRAPH

http://www.ultragen.com/doc/tech-articles/en/Improve %20FCCU%20Refractory-lined%20Piping%20Design.pdf

https://www.littlepeng.com/single-post/2017/07/13/ASME-B313 -Calculation-of-Wall-Temperature-for-Refractory-Lined-Pipe

The LMTD is the logarithmic average of the temperature difference between hot and cold fluid stream at each end of the heat exchanger. The larger the value of LMTD, the higher heat is transferred. The rate of heat transfer can be expressed as Q=U*A*ΔTm

ΔTm ΔT1 ΔT2 - ΔT1 ΔT2 / ln / ≡

XY 655 981.8043 770 948.4877 885 716.8985 1000 470.6143 42 mat :

S1 XY 12 range 12 range el : S2 XY 24 range 12 range el : 21 line

S1 S2 21 mat 655 981.8043 770 948.4877 22 mat 770 948.4877 885 716.8985 1000 470.6143 32 mat 21 mat

x s1 S1 1 col S1 2 col x linterp : x s2 S2 1 col S2 2 col x linterp : 21 line

x S1 x s1 655 x ≤ (x 770 ≤ (& cases :

x S2 x s2 770 x ≤ (x 1000 ≤ (& cases :

T1 6550655120022 mat : T2 7700770120022 mat : T3 10000100075022 mat : 13 mat

°C Temperature profile

x S1 x S2 T1 T2 T3 5 1 sys

700 S1 850 S2 21 mat °C #

user unit °C 1 :

700 S1 850 S2 21 mat °C 968.8 787.4 21 mat